From 2727911dfd0aae11b8de3e6d8d121772cc41c673 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 18 May 2002 19:45:05 +0000 Subject: [PATCH] (tar-octal-time): Fix last change. --- lisp/tar-mode.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 4051398e5af..400dbdad134 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -1092,12 +1092,12 @@ for this to be permanent." (defun tar-octal-time (timeval) ;; Format a timestamp as 11 octal digits. Ghod, I hope this works... (let ((hibits (car timeval)) (lobits (car (cdr timeval)))) - (insert (format "%05o%01o%05o" - (lsh hibits -2) - (logior (lsh (logand 3 hibits) 1) - (if (> (logand lobits 32768) 0) 1 0)) - (logand 32767 lobits) - )))) + (format "%05o%01o%05o" + (lsh hibits -2) + (logior (lsh (logand 3 hibits) 1) + (if (> (logand lobits 32768) 0) 1 0)) + (logand 32767 lobits) + ))) (defun tar-subfile-save-buffer () "In tar subfile mode, save this buffer into its parent tar-file buffer. -- 2.30.2